title: “Trabajo final - Modulo 2” author: “Fabian Celi” date: “2023-12-26” output: html_document —
Realiza un boxplot usando ggplot2, de UNA de las variables que hayas descargado.
ggplot(crecimiento_porc_PIB2,aes(x=Anio,y=Value,fill=Country.Name))+
geom_boxplot(aes(fill=Country.Name))+facet_wrap(~Country.Name,scales = "free")+
geom_jitter(width=0.1,alpha=0.2,aes(color=Country.Name))+
labs(title="Crecimiento del PIB en diferentes regiones del mundo",
subtitle = "En porcentaje",
caption = "Fuente: Banco Mundial\n Elaboracion: Fabian Celi")+
theme(legend.position = "none", axis.text.x = element_text(angle = 90, hjust = 1))
ggplot(ExpEimp2, aes(x = Anio, y = Value, fill = Concepto, colour = Concepto)) +
geom_bar(stat = "identity", position = "dodge", alpha = 0.5) +
geom_text(aes(label=Value), vjust=0, color="black", size=3,
position = position_dodge(width = 1)) +
labs(title="Evolucion de las exportaciones e importaciones del Ecuador",
subtitle = "En miles de millones",
caption = "Fuente: BCE\n Elaboracion: Fabian Celi") +
theme_bw() +
theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank())
Este gráfico debe incorporar la linea de tendencia para las dos variables. Prueba generando un gráfico usando dygraphs o plotly
animado2 <- ggplot(data=desempl_homic,aes(x=periodo,y=Value,group=1))+
geom_line()+facet_wrap(.~Indicator.Name ,scales = "free")
animado2 <- animado2+transition_reveal(along = periodo)
animado2 <- animado2+geom_point()+ transition_reveal(along = periodo)+
labs(title = "Mes indicador: {frame_along}")
animado2